/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Toolbox classes / TEview

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 54 45 76 69 65 77 | 00 00 00 00 00 00 00 00 |..TEview|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 11 1f 00 | 00 01 7d ae a5 44 c5 ae |........|..}..D..|
|00000060| a5 44 c5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.D......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 32 4a 00 00 |........|....2J..|
|00000080| 5c 20 41 75 67 20 39 36 | 09 6d 72 68 09 49 6e 69 |\ Aug 96|.mrh.Ini|
|00000090| 74 69 61 6c 20 76 65 72 | 73 69 6f 6e 0d 5c 20 53 |tial ver|sion.\ S|
|000000a0| 65 70 20 39 36 09 6d 72 | 68 09 61 64 64 65 64 20 |ep 96.mr|h.added |
|000000b0| 73 65 6c 65 63 74 41 6c | 6c 3a 2c 20 73 65 6c 65 |selectAl|l:, sele|
|000000c0| 63 74 4c 69 6e 65 3a 0d | 0d 6e 65 65 64 20 77 69 |ctLine:.|.need wi|
|000000d0| 6e 64 6f 77 2b 0d 6e 65 | 65 64 20 54 65 78 74 45 |ndow+.ne|ed TextE|
|000000e0| 64 69 74 0d 0d 0d 5c 20 | 54 45 56 69 65 77 20 69 |dit...\ |TEView i|
|000000f0| 73 20 61 20 73 69 6d 70 | 6c 65 20 6e 6f 6e 2d 73 |s a simp|le non-s|
|00000100| 63 72 6f 6c 6c 69 6e 67 | 20 54 65 78 74 45 64 69 |crolling| TextEdi|
|00000110| 74 20 76 69 65 77 2e 20 | 20 49 74 20 68 61 73 20 |t view. | It has |
|00000120| 73 6f 6d 65 20 63 6f 64 | 65 0d 5c 20 20 6c 69 66 |some cod|e.\  lif|
|00000130| 74 65 64 20 66 72 6f 6d | 20 54 45 53 63 72 6f 6c |ted from| TEScrol|
|00000140| 6c 65 72 2c 20 62 75 74 | 20 69 73 20 61 20 6c 6f |ler, but| is a lo|
|00000150| 74 20 73 69 6d 70 6c 65 | 72 2e 0d 0d 0d 6f 62 6a |t simple|r....obj|
|00000160| 70 74 72 20 20 24 54 4d | 50 20 20 63 6c 61 73 73 |ptr  $TM|P  class|
|00000170| 5f 69 73 20 73 74 72 69 | 6e 67 2b 0d 0d 3a 63 6c |_is stri|ng+..:cl|
|00000180| 61 73 73 20 20 54 45 56 | 69 65 77 20 20 73 75 70 |ass  TEV|iew  sup|
|00000190| 65 72 7b 20 76 69 65 77 | 20 7d 0d 0d 09 54 65 78 |er{ view| }...Tex|
|000001a0| 74 45 64 69 74 09 74 68 | 65 54 45 20 0d 09 62 79 |tEdit.th|eTE ..by|
|000001b0| 74 65 09 09 6d 6f 75 73 | 65 5f 77 61 73 5f 68 65 |te..mous|e_was_he|
|000001c0| 72 65 3f 0d 0d 0d 3a 6d | 20 3e 66 6f 6e 74 3a 20 |re?...:m| >font: |
|000001d0| 20 28 20 66 6f 6e 74 23 | 20 2d 2d 20 29 20 20 3e | ( font#| -- )  >|
|000001e0| 66 6f 6e 74 3a 20 74 68 | 65 54 45 20 20 3b 6d 0d |font: th|eTE  ;m.|
|000001f0| 0d 3a 6d 20 3e 66 6f 6e | 74 53 69 7a 65 3a 20 20 |.:m >fon|tSize:  |
|00000200| 28 20 6e 20 2d 2d 20 29 | 20 20 3e 66 6f 6e 74 53 |( n -- )|  >fontS|
|00000210| 69 7a 65 3a 20 74 68 65 | 54 45 20 20 3b 6d 0d 0d |ize: the|TE  ;m..|
|00000220| 3a 6d 20 3e 63 6f 6c 6f | 72 3a 20 20 28 20 72 65 |:m >colo|r:  ( re|
|00000230| 64 20 67 72 65 65 6e 20 | 62 6c 75 65 20 2d 2d 20 |d green |blue -- |
|00000240| 29 20 20 3e 63 6f 6c 6f | 72 3a 20 74 68 65 54 45 |)  >colo|r: theTE|
|00000250| 20 20 3b 6d 0d 0d 3a 6d | 20 3e 73 74 79 6c 65 3a |  ;m..:m| >style:|
|00000260| 20 20 28 20 6e 20 2d 2d | 20 29 09 09 3e 73 74 79 |  ( n --| )..>sty|
|00000270| 6c 65 3a 20 74 68 65 54 | 45 20 20 3b 6d 0d 0d 0d |le: theT|E  ;m...|
|00000280| 3a 6d 20 53 49 5a 45 3a | 09 5c 20 28 20 2d 2d 20 |:m SIZE:|.\ ( -- |
|00000290| 6e 20 29 0d 09 73 69 7a | 65 3a 20 74 68 65 54 45 |n )..siz|e: theTE|
|000002a0| 20 20 3b 6d 0d 20 0d 0d | 3a 6d 20 45 4e 41 42 4c |  ;m. ..|:m ENABL|
|000002b0| 45 3a 0d 09 65 6e 61 62 | 6c 65 3a 20 73 75 70 65 |E:..enab|le: supe|
|000002c0| 72 20 0d 09 61 63 74 69 | 76 61 74 65 3a 20 74 68 |r ..acti|vate: th|
|000002d0| 65 54 45 20 3b 6d 20 20 | 20 20 20 20 0d 0d 3a 6d |eTE ;m  |    ..:m|
|000002e0| 20 44 49 53 41 42 4c 45 | 3a 0d 09 64 69 73 61 62 | DISABLE|:..disab|
|000002f0| 6c 65 3a 20 73 75 70 65 | 72 0d 09 64 65 61 63 74 |le: supe|r..deact|
|00000300| 69 76 61 74 65 3a 20 74 | 68 65 54 45 20 3b 6d 20 |ivate: t|heTE ;m |
|00000310| 20 20 20 0d 0d 0d 3a 6d | 20 4d 4f 56 45 44 3a 20 |   ...:m| MOVED: |
|00000320| 20 7b 20 5c 20 78 20 79 | 20 64 78 20 64 79 20 61 | { \ x y| dx dy a|
|00000330| 64 72 20 2d 2d 20 7d 0d | 0d 09 67 65 74 56 69 65 |dr -- }.|..getVie|
|00000340| 77 52 65 63 74 3a 20 73 | 65 6c 66 20 20 32 64 72 |wRect: s|elf  2dr|
|00000350| 6f 70 20 20 2d 3e 20 79 | 20 20 2d 3e 20 78 0d 0d |op  -> y|  -> x..|
|00000360| 09 6d 6f 76 65 64 3a 20 | 73 75 70 65 72 0d 09 67 |.moved: |super..g|
|00000370| 65 74 3a 20 61 6c 69 76 | 65 3f 20 20 30 45 58 49 |et: aliv|e?  0EXI|
|00000380| 54 0d 09 67 65 74 56 69 | 65 77 52 65 63 74 3a 20 |T..getVi|ewRect: |
|00000390| 73 65 6c 66 20 20 73 65 | 74 56 69 65 77 52 65 63 |self  se|tViewRec|
|000003a0| 74 3a 20 74 68 65 54 45 | 0d 09 67 65 74 56 69 65 |t: theTE|..getVie|
|000003b0| 77 52 65 63 74 3a 20 73 | 65 6c 66 20 20 32 64 72 |wRect: s|elf  2dr|
|000003c0| 6f 70 20 20 79 20 2d 20 | 20 2d 3e 20 64 79 20 20 |op  y - | -> dy  |
|000003d0| 78 20 2d 20 20 2d 3e 20 | 64 78 0d 0d 5c 20 6e 6f |x -  -> |dx..\ no|
|000003e0| 77 20 77 65 20 6d 75 73 | 74 20 64 6f 20 73 6f 6d |w we mus|t do som|
|000003f0| 65 20 6f 66 20 74 68 65 | 20 77 6f 72 6b 20 69 6e |e of the| work in|
|00000400| 20 46 69 78 50 61 6e 52 | 65 63 74 3a 20 6f 66 20 | FixPanR|ect: of |
|00000410| 54 45 53 63 72 6f 6c 6c | 65 72 2e 20 20 57 65 0d |TEScroll|er.  We.|
|00000420| 5c 20 20 61 73 73 75 6d | 65 20 77 65 27 72 65 20 |\  assum|e we're |
|00000430| 6e 6f 74 20 77 72 61 70 | 70 69 6e 67 2e 0d 0d 09 |not wrap|ping....|
|00000440| 68 61 6e 64 6c 65 3a 20 | 74 68 65 54 45 20 40 20 |handle: |theTE @ |
|00000450| 20 2d 3e 20 61 64 72 0d | 0d 09 33 32 37 36 36 20 | -> adr.|..32766 |
|00000460| 67 65 74 70 6f 69 6e 74 | 3a 20 74 68 65 54 45 20 |getpoint|: theTE |
|00000470| 2d 3e 20 79 20 20 2d 3e | 20 78 0d 09 79 20 20 61 |-> y  ->| x..y  a|
|00000480| 64 72 20 34 2b 20 20 77 | 21 09 09 09 5c 20 41 64 |dr 4+  w|!...\ Ad|
|00000490| 6a 75 73 74 20 62 6f 74 | 74 6f 6d 20 6f 66 20 64 |just bot|tom of d|
|000004a0| 65 73 74 20 72 65 63 74 | 20 61 6e 64 0d 09 38 30 |est rect| and..80|
|000004b0| 30 20 20 61 64 72 20 36 | 20 2b 20 77 21 09 09 09 |0  adr 6| + w!...|
|000004c0| 5c 20 72 69 67 68 74 20 | 63 6f 6f 72 64 69 6e 61 |\ right |coordina|
|000004d0| 74 65 20 69 66 20 6e 6f | 74 20 77 72 61 70 70 69 |te if no|t wrappi|
|000004e0| 6e 67 20 2a 2a 2a 2a 20 | 63 68 61 6e 67 65 20 61 |ng **** |change a|
|000004f0| 73 20 6e 65 63 65 73 73 | 61 72 79 0d 09 09 09 09 |s necess|ary.....|
|00000500| 09 09 09 5c 20 2d 20 31 | 36 30 30 20 66 6f 72 20 |...\ - 1|600 for |
|00000510| 4d 6f 70 73 2c 20 35 30 | 30 20 66 6f 72 20 53 63 |Mops, 50|0 for Sc|
|00000520| 72 69 70 74 6f 72 2e 20 | 20 4d 61 6b 65 20 69 74 |riptor. | Make it|
|00000530| 20 61 6e 20 69 76 61 72 | 20 73 6f 6f 6e 21 21 0d | an ivar| soon!!.|
|00000540| 09 73 69 7a 65 3a 20 74 | 68 65 54 45 0d 09 67 65 |.size: t|heTE..ge|
|00000550| 74 70 6f 69 6e 74 3a 20 | 74 68 65 54 45 20 6e 69 |tpoint: |theTE ni|
|00000560| 70 20 61 64 72 20 34 20 | 2b 20 77 21 20 20 5c 20 |p adr 4 |+ w!  \ |
|00000570| 41 64 6a 75 73 74 20 62 | 6f 74 74 6f 6d 20 6f 66 |Adjust b|ottom of|
|00000580| 20 64 65 73 74 20 72 65 | 63 74 0d 0d 09 64 78 20 | dest re|ct...dx |
|00000590| 64 79 20 6f 72 20 20 49 | 46 20 20 64 78 20 64 79 |dy or  I|F  dx dy|
|000005a0| 20 20 73 63 72 6f 6c 6c | 3a 20 74 68 65 54 45 20 |  scroll|: theTE |
|000005b0| 20 54 48 45 4e 0d 0d 09 | 5e 76 69 65 77 52 65 63 | THEN...|^viewRec|
|000005c0| 74 3a 20 73 65 6c 66 20 | 20 63 6c 65 61 72 3a 20 |t: self | clear: |
|000005d0| 63 6c 61 73 73 5f 61 73 | 3e 20 72 65 63 74 0d 3b |class_as|> rect.;|
|000005e0| 6d 0d 0d 0d 3a 6d 20 28 | 44 52 41 57 29 3a 0d 09 |m...:m (|DRAW):..|
|000005f0| 5c 20 54 45 20 6c 6f 6f | 6b 73 20 61 66 74 65 72 |\ TE loo|ks after|
|00000600| 20 63 6c 69 70 70 69 6e | 67 20 69 74 73 65 6c 66 | clippin|g itself|
|00000610| 2c 20 73 6f 20 77 65 20 | 64 6f 6e 27 74 20 6e 65 |, so we |don't ne|
|00000620| 65 64 20 6f 75 72 20 64 | 65 66 61 75 6c 74 20 63 |ed our d|efault c|
|00000630| 6c 69 70 70 69 6e 67 2e | 0d 09 5c 20 49 74 20 77 |lipping.|..\ It w|
|00000640| 6f 75 6c 64 20 63 61 75 | 73 65 20 70 72 6f 62 6c |ould cau|se probl|
|00000650| 65 6d 73 20 61 6e 79 77 | 61 79 2c 20 73 69 6e 63 |ems anyw|ay, sinc|
|00000660| 65 20 77 65 20 75 73 65 | 20 74 68 65 20 67 72 61 |e we use| the gra|
|00000670| 66 70 6f 72 74 20 6f 72 | 69 67 69 6e 20 77 68 65 |fport or|igin whe|
|00000680| 6e 0d 09 5c 20 63 61 6c | 6c 69 6e 67 20 54 45 2c |n..\ cal|ling TE,|
|00000690| 20 77 68 69 6c 65 20 6f | 75 72 20 64 65 66 61 75 | while o|ur defau|
|000006a0| 6c 74 20 63 6c 69 70 70 | 69 6e 67 20 75 73 65 73 |lt clipp|ing uses|
|000006b0| 20 76 69 65 77 20 6f 72 | 69 67 69 6e 2e 20 20 53 | view or|igin.  S|
|000006c0| 6f 20 77 65 0d 09 5c 20 | 64 69 73 61 62 6c 65 20 |o we..\ |disable |
|000006d0| 6f 75 72 20 6f 77 6e 20 | 63 6c 69 70 70 69 6e 67 |our own |clipping|
|000006e0| 2e 0d 0d 09 66 61 6c 73 | 65 20 20 70 75 74 3a 20 |....fals|e  put: |
|000006f0| 73 65 74 43 6c 69 70 3f | 0d 09 6e 6f 43 6c 69 70 |setClip?|..noClip|
|00000700| 09 09 09 5c 20 45 78 70 | 65 72 69 6d 65 6e 74 61 |...\ Exp|erimenta|
|00000710| 74 69 6f 6e 20 73 68 6f | 77 73 20 74 68 69 73 20 |tion sho|ws this |
|00000720| 69 73 20 64 65 66 69 6e | 69 74 65 6c 79 20 6e 65 |is defin|itely ne|
|00000730| 63 65 73 73 61 72 79 21 | 21 0d 09 73 65 74 54 65 |cessary!|!..setTe|
|00000740| 6d 70 52 65 63 74 3a 20 | 73 65 6c 66 0d 09 61 64 |mpRect: |self..ad|
|00000750| 64 72 3a 20 74 65 6d 70 | 52 65 63 74 20 20 63 61 |dr: temp|Rect  ca|
|00000760| 6c 6c 20 65 72 61 73 65 | 72 65 63 74 0d 09 61 64 |ll erase|rect..ad|
|00000770| 64 72 3a 20 76 69 65 77 | 52 65 63 74 20 20 75 70 |dr: view|Rect  up|
|00000780| 64 61 74 65 3a 20 74 68 | 65 54 45 0d 3b 6d 20 20 |date: th|eTE.;m  |
|00000790| 20 20 20 20 20 20 0d 0d | 3a 6d 20 44 52 41 57 3a |      ..|:m DRAW:|
|000007a0| 09 28 64 72 61 77 29 3a | 20 73 65 6c 66 20 20 3b |.(draw):| self  ;|
|000007b0| 6d 0d 0d 20 20 20 20 20 | 20 20 20 0d 3a 6d 20 53 |m..     |   .:m S|
|000007c0| 45 54 53 45 4c 45 43 54 | 3a 20 20 7b 20 73 74 72 |ETSELECT|:  { str|
|000007d0| 74 20 65 6e 64 20 2d 2d | 20 7d 0d 09 70 75 73 68 |t end --| }..push|
|000007e0| 50 6f 72 74 20 20 73 65 | 74 3a 20 5b 20 67 65 74 |Port  se|t: [ get|
|000007f0| 3a 20 5e 6d 79 57 69 6e | 64 20 5d 0d 09 73 74 72 |: ^myWin|d ]..str|
|00000800| 74 20 65 6e 64 20 20 73 | 65 6c 65 63 74 3a 20 74 |t end  s|elect: t|
|00000810| 68 65 54 45 20 0d 5c 09 | 75 70 64 61 74 65 3a 20 |heTE .\.|update: |
|00000820| 5b 20 67 65 74 3a 20 5e | 6d 79 57 69 6e 64 20 5d |[ get: ^|myWind ]|
|00000830| 0d 09 70 6f 70 50 6f 72 | 74 20 20 3b 6d 0d 0d 0d |..popPor|t  ;m...|
|00000840| 3a 6d 20 53 45 4c 45 43 | 54 41 4c 4c 3a 0d 09 70 |:m SELEC|TALL:..p|
|00000850| 75 73 68 50 6f 72 74 20 | 20 73 65 74 3a 20 5b 20 |ushPort | set: [ |
|00000860| 67 65 74 3a 20 5e 6d 79 | 57 69 6e 64 20 5d 0d 09 |get: ^my|Wind ]..|
|00000870| 73 65 6c 65 63 74 41 6c | 6c 3a 20 74 68 65 54 45 |selectAl|l: theTE|
|00000880| 20 0d 09 70 6f 70 50 6f | 72 74 20 20 3b 6d 0d 0d | ..popPo|rt  ;m..|
|00000890| 3a 6d 20 53 45 4c 45 43 | 54 4c 49 4e 45 3a 0d 09 |:m SELEC|TLINE:..|
|000008a0| 67 65 74 4c 69 6e 65 3a | 20 74 68 65 54 45 20 20 |getLine:| theTE  |
|000008b0| 32 64 72 6f 70 09 5c 20 | 6e 65 65 64 20 73 69 64 |2drop.\ |need sid|
|000008c0| 65 66 66 65 63 74 20 6f | 66 20 73 65 74 74 69 6e |effect o|f settin|
|000008d0| 67 20 6c 69 6e 65 53 74 | 61 72 74 20 61 6e 64 20 |g lineSt|art and |
|000008e0| 6c 69 6e 65 45 6e 64 0d | 09 6c 69 6e 65 53 74 61 |lineEnd.|.lineSta|
|000008f0| 72 74 20 6c 69 6e 65 45 | 6e 64 20 20 73 65 74 53 |rt lineE|nd  setS|
|00000900| 65 6c 65 63 74 3a 20 73 | 65 6c 66 0d 3b 6d 0d 0d |elect: s|elf.;m..|
|00000910| 0d 3a 6d 20 43 41 52 45 | 54 4c 4f 43 3a 20 20 20 |.:m CARE|TLOC:   |
|00000920| 20 5c 20 28 20 2d 2d 20 | 78 20 79 20 29 0d 09 73 | \ ( -- |x y )..s|
|00000930| 65 6c 73 74 61 72 74 3a | 20 74 68 65 54 45 0d 09 |elstart:| theTE..|
|00000940| 67 65 74 70 6f 69 6e 74 | 3a 20 74 68 65 54 45 20 |getpoint|: theTE |
|00000950| 20 3b 6d 0d 09 0d 0d 3a | 6d 20 43 4c 49 43 4b 3a | ;m....:|m CLICK:|
|00000960| 0d 09 63 6c 69 63 6b 3a | 20 73 75 70 65 72 0d 09 |..click:| super..|
|00000970| 63 6c 69 63 6b 3a 20 74 | 68 65 54 45 0d 3b 6d 0d |click: t|heTE.;m.|
|00000980| 0d 3a 6d 20 4b 45 59 3a | 20 20 7b 20 63 68 61 72 |.:m KEY:|  { char|
|00000990| 20 2d 2d 20 7d 0d 09 6e | 6f 43 6c 69 70 09 09 09 | -- }..n|oClip...|
|000009a0| 09 09 09 5c 20 69 74 20 | 73 65 65 6d 73 20 77 65 |...\ it |seems we|
|000009b0| 20 63 61 6e 20 73 6f 6d | 65 74 69 6d 65 73 20 62 | can som|etimes b|
|000009c0| 65 20 63 6c 69 70 70 65 | 64 20 6f 75 74 0d 09 63 |e clippe|d out..c|
|000009d0| 68 61 72 20 20 6b 65 79 | 3a 20 74 68 65 54 45 0d |har  key|: theTE.|
|000009e0| 3b 6d 0d 0d 3a 6d 20 49 | 4e 53 45 52 54 3a 20 20 |;m..:m I|NSERT:  |
|000009f0| 5c 20 28 20 61 64 64 72 | 20 6c 65 6e 20 29 0d 09 |\ ( addr| len )..|
|00000a00| 6e 6f 43 6c 69 70 09 09 | 09 09 09 09 5c 20 69 74 |noClip..|....\ it|
|00000a10| 20 73 65 65 6d 73 20 77 | 65 20 63 61 6e 20 73 6f | seems w|e can so|
|00000a20| 6d 65 74 69 6d 65 73 20 | 62 65 20 63 6c 69 70 70 |metimes |be clipp|
|00000a30| 65 64 20 6f 75 74 0d 09 | 69 6e 73 65 72 74 3a 20 |ed out..|insert: |
|00000a40| 74 68 65 54 45 0d 3b 6d | 20 20 20 20 20 20 20 20 |theTE.;m|        |
|00000a50| 0d 0d 3a 6d 20 24 49 4e | 53 45 52 54 3a 20 28 20 |..:m $IN|SERT: ( |
|00000a60| 73 74 72 20 2d 2d 20 29 | 20 7b 20 5c 20 61 64 72 |str -- )| { \ adr|
|00000a70| 20 2d 2d 20 7d 0d 09 5b | 27 5d 20 24 74 6d 70 20 | -- }..[|'] $tmp |
|00000a80| 21 09 09 5c 20 6d 61 79 | 20 62 65 20 61 20 73 75 |!..\ may| be a su|
|00000a90| 62 63 6c 61 73 73 20 6f | 66 20 73 74 72 69 6e 67 |bclass o|f string|
|00000aa0| 2b 0d 09 67 65 74 3a 20 | 24 74 6d 70 20 20 69 6e |+..get: |$tmp  in|
|00000ab0| 73 65 72 74 3a 20 73 65 | 6c 66 20 20 3b 6d 0d 0d |sert: se|lf  ;m..|
|00000ac0| 3a 6d 20 2b 3a 20 20 28 | 20 63 20 2d 2d 20 29 0d |:m +:  (| c -- ).|
|00000ad0| 09 70 61 64 20 63 21 0d | 09 70 61 64 20 31 20 20 |.pad c!.|.pad 1  |
|00000ae0| 69 6e 73 65 72 74 3a 20 | 73 65 6c 66 20 20 3b 6d |insert: |self  ;m|
|00000af0| 0d 0d 0d 0d 3a 6d 20 4e | 45 57 3a 0d 09 6e 65 77 |....:m N|EW:..new|
|00000b00| 3a 20 73 75 70 65 72 0d | 09 61 64 64 72 3a 20 76 |: super.|.addr: v|
|00000b10| 69 65 77 52 65 63 74 20 | 20 64 75 70 20 20 6e 65 |iewRect | dup  ne|
|00000b20| 77 3a 20 74 68 65 54 45 | 0d 3b 6d 0d 0d 0d 3a 6d |w: theTE|.;m...:m|
|00000b30| 20 43 55 54 3a 09 09 09 | 63 75 74 3a 20 74 68 65 | CUT:...|cut: the|
|00000b40| 54 45 20 20 3b 6d 09 0d | 0d 3a 6d 20 43 4f 50 59 |TE  ;m..|.:m COPY|
|00000b50| 3a 09 09 63 6f 70 79 3a | 20 74 68 65 54 45 20 20 |:..copy:| theTE  |
|00000b60| 3b 6d 09 0d 0d 3a 6d 20 | 50 41 53 54 45 3a 09 09 |;m...:m |PASTE:..|
|00000b70| 70 61 73 74 65 3a 20 74 | 68 65 54 45 20 20 3b 6d |paste: t|heTE  ;m|
|00000b80| 09 0d 0d 3a 6d 20 43 4c | 45 41 52 3a 09 09 63 6c |...:m CL|EAR:..cl|
|00000b90| 65 61 72 3a 20 74 68 65 | 54 45 20 20 3b 6d 0d 0d |ear: the|TE  ;m..|
|00000ba0| 3a 6d 20 43 4c 45 41 52 | 41 4c 4c 3a 09 6e 6f 63 |:m CLEAR|ALL:.noc|
|00000bb0| 6c 69 70 20 20 73 65 6c | 65 63 74 41 6c 6c 3a 20 |lip  sel|ectAll: |
|00000bc0| 73 65 6c 66 20 20 63 6c | 65 61 72 3a 20 74 68 65 |self  cl|ear: the|
|00000bd0| 54 45 20 20 3b 6d 0d 0d | 3a 6d 20 54 65 78 74 48 |TE  ;m..|:m TextH|
|00000be0| 61 6e 64 6c 65 3a 09 74 | 65 78 74 48 61 6e 64 6c |andle:.t|extHandl|
|00000bf0| 65 3a 20 74 68 65 54 45 | 20 20 3b 6d 0d 0d 0d 3a |e: theTE|  ;m...:|
|00000c00| 6d 20 47 45 54 53 45 4c | 45 43 54 3a 20 20 20 5c |m GETSEL|ECT:   \|
|00000c10| 20 28 20 2d 2d 20 61 64 | 64 72 20 6c 65 6e 20 29 | ( -- ad|dr len )|
|00000c20| 20 20 20 20 20 20 20 5c | 20 72 65 74 75 72 6e 20 |       \| return |
|00000c30| 68 69 6c 69 74 65 64 20 | 73 65 6c 65 63 74 69 6f |hilited |selectio|
|00000c40| 6e 20 20 0d 20 20 20 20 | 20 20 20 20 67 65 74 73 |n  .    |    gets|
|00000c50| 65 6c 65 63 74 3a 20 74 | 68 65 54 45 20 3b 6d 0d |elect: t|heTE ;m.|
|00000c60| 0d 5c 20 67 65 74 6c 69 | 6e 65 3a 20 77 69 6c 6c |.\ getli|ne: will|
|00000c70| 20 72 65 74 75 72 6e 20 | 74 68 65 20 65 6e 74 69 | return |the enti|
|00000c80| 72 65 20 6c 69 6e 65 20 | 69 6e 20 77 68 69 63 68 |re line |in which|
|00000c90| 20 74 68 65 20 63 75 72 | 73 6f 72 20 69 73 20 63 | the cur|sor is c|
|00000ca0| 75 72 72 65 6e 74 6c 79 | 20 69 6e 2c 0d 5c 20 72 |urrently| in,.\ r|
|00000cb0| 65 67 61 72 64 6c 65 73 | 73 20 6f 66 20 77 68 65 |egardles|s of whe|
|00000cc0| 72 65 20 69 6e 20 74 68 | 65 20 6c 69 6e 65 20 74 |re in th|e line t|
|00000cd0| 68 65 20 63 75 72 73 6f | 72 20 69 73 20 6c 6f 63 |he curso|r is loc|
|00000ce0| 61 74 65 64 2e 20 20 4e | 6f 20 74 65 78 74 20 6e |ated.  N|o text n|
|00000cf0| 65 65 64 20 62 65 0d 5c | 20 73 65 6c 65 63 74 65 |eed be.\| selecte|
|00000d00| 64 2e 0d 0d 3a 6d 20 47 | 45 54 4c 49 4e 45 3a 20 |d...:m G|ETLINE: |
|00000d10| 20 20 20 20 5c 20 28 20 | 2d 2d 20 61 64 64 72 20 |    \ ( |-- addr |
|00000d20| 6c 65 6e 20 29 20 20 0d | 20 20 20 20 20 20 20 20 |len )  .|        |
|00000d30| 67 65 74 6c 69 6e 65 3a | 20 74 68 65 54 45 20 3b |getline:| theTE ;|
|00000d40| 6d 0d 0d 3a 6d 20 52 45 | 4c 45 41 53 45 3a 20 20 |m..:m RE|LEASE:  |
|00000d50| 0d 20 20 20 20 20 20 20 | 20 72 65 6c 65 61 73 65 |.       | release|
|00000d60| 3a 20 74 68 65 54 45 20 | 3b 6d 0d 0d 3a 6d 20 48 |: theTE |;m..:m H|
|00000d70| 41 4e 44 4c 45 3a 20 20 | 20 20 20 20 5c 20 28 20 |ANDLE:  |    \ ( |
|00000d80| 2d 2d 20 54 45 68 6e 64 | 6c 20 29 20 20 0d 20 20 |-- TEhnd|l )  .  |
|00000d90| 20 20 20 20 20 20 68 61 | 6e 64 6c 65 3a 20 74 68 |      ha|ndle: th|
|00000da0| 65 54 45 20 3b 6d 0d 0d | 3a 6d 20 67 65 74 54 65 |eTE ;m..|:m getTe|
|00000db0| 78 74 3a 09 09 5c 20 28 | 20 2d 2d 20 61 64 64 72 |xt:..\ (| -- addr|
|00000dc0| 20 6c 65 6e 20 29 0d 09 | 09 67 65 74 3a 20 74 68 | len )..|.get: th|
|00000dd0| 65 54 45 20 20 3b 6d 0d | 0d 3a 6d 20 53 45 4c 45 |eTE  ;m.|.:m SELE|
|00000de0| 4e 44 3a 20 20 20 20 20 | 20 5c 20 28 20 2d 2d 20 |ND:     | \ ( -- |
|00000df0| 6e 20 29 20 20 0d 20 20 | 20 20 20 20 20 20 73 65 |n )  .  |      se|
|00000e00| 6c 65 6e 64 3a 20 74 68 | 65 54 45 20 3b 6d 0d 20 |lend: th|eTE ;m. |
|00000e10| 20 20 20 20 20 20 20 0d | 3a 6d 20 53 45 4c 53 54 |       .|:m SELST|
|00000e20| 41 52 54 3a 20 20 20 20 | 5c 20 28 20 2d 2d 20 6e |ART:    |\ ( -- n|
|00000e30| 20 29 20 20 0d 20 20 20 | 20 20 20 20 20 73 65 6c | )  .   |     sel|
|00000e40| 73 74 61 72 74 3a 20 74 | 68 65 54 45 20 3b 6d 0d |start: t|heTE ;m.|
|00000e50| 0d 3a 6d 20 4c 49 4e 45 | 45 4e 44 3a 20 20 20 20 |.:m LINE|END:    |
|00000e60| 5c 20 28 20 2d 2d 20 6e | 20 29 09 5c 20 2a 2a 20 |\ ( -- n| ).\ ** |
|00000e70| 0d 09 6c 69 6e 65 45 6e | 64 3a 20 74 68 65 54 45 |..lineEn|d: theTE|
|00000e80| 20 3b 6d 0d 0d 70 72 69 | 76 61 74 65 0d 3a 6d 20 | ;m..pri|vate.:m |
|00000e90| 63 68 65 63 6b 5f 6d 6f | 75 73 65 3f 3a 20 20 7b |check_mo|use?:  {|
|00000ea0| 20 5c 20 6d 6f 75 73 65 | 48 65 72 65 3f 20 2d 2d | \ mouse|Here? --|
|00000eb0| 20 6d 6f 75 73 65 48 65 | 72 65 3f 20 63 68 61 6e | mouseHe|re? chan|
|00000ec0| 67 65 64 3f 20 7d 0d 09 | 6d 6f 75 73 65 48 65 72 |ged? }..|mouseHer|
|00000ed0| 65 3f 3a 20 73 65 6c 66 | 20 20 2d 3e 20 6d 6f 75 |e?: self|  -> mou|
|00000ee0| 73 65 48 65 72 65 3f 0d | 09 6d 6f 75 73 65 48 65 |seHere?.|.mouseHe|
|00000ef0| 72 65 3f 0d 09 67 65 74 | 3a 20 6d 6f 75 73 65 5f |re?..get|: mouse_|
|00000f00| 77 61 73 5f 68 65 72 65 | 3f 20 20 6d 6f 75 73 65 |was_here|?  mouse|
|00000f10| 48 65 72 65 3f 20 3c 3e | 0d 09 6d 6f 75 73 65 48 |Here? <>|..mouseH|
|00000f20| 65 72 65 3f 20 70 75 74 | 3a 20 6d 6f 75 73 65 5f |ere? put|: mouse_|
|00000f30| 77 61 73 5f 68 65 72 65 | 3f 0d 3b 6d 0d 0d 70 75 |was_here|?.;m..pu|
|00000f40| 62 6c 69 63 0d 09 0d 3a | 6d 20 49 44 4c 45 3a 0d |blic...:|m IDLE:.|
|00000f50| 09 69 64 6c 65 3a 20 73 | 75 70 65 72 0d 09 6e 69 |.idle: s|uper..ni|
|00000f60| 6c 3f 3a 20 5e 6d 79 57 | 69 6e 64 20 3f 45 58 49 |l?: ^myW|ind ?EXI|
|00000f70| 54 0d 09 73 65 6c 66 0d | 09 67 65 74 3a 20 5e 6d |T..self.|.get: ^m|
|00000f80| 79 57 69 6e 64 20 20 67 | 65 74 3a 20 69 76 61 72 |yWind  g|et: ivar|
|00000f90| 3e 20 5e 76 69 65 77 5f | 69 6e 5f 66 6f 63 75 73 |> ^view_|in_focus|
|00000fa0| 20 69 6e 20 63 6c 61 73 | 73 5f 61 73 3e 20 77 69 | in clas|s_as> wi|
|00000fb0| 6e 64 6f 77 0d 09 3d 20 | 20 30 45 58 49 54 09 09 |ndow..= | 0EXIT..|
|00000fc0| 09 5c 20 64 6f 20 6e 6f | 74 68 69 6e 67 20 65 6c |.\ do no|thing el|
|00000fd0| 73 65 20 69 66 20 77 65 | 27 72 65 20 6e 6f 74 20 |se if we|'re not |
|00000fe0| 69 6e 20 66 6f 63 75 73 | 0d 0d 5c 20 6e 6f 77 20 |in focus|..\ now |
|00000ff0| 77 65 20 73 65 74 20 74 | 68 65 20 63 75 72 73 6f |we set t|he curso|
|00001000| 72 20 69 66 20 77 65 20 | 68 61 76 65 20 74 6f 20 |r if we |have to |
|00001010| 2d 20 77 65 20 6f 6e 6c | 79 20 64 6f 20 74 68 69 |- we onl|y do thi|
|00001020| 73 20 69 66 20 74 68 65 | 20 6d 6f 75 73 65 0d 5c |s if the| mouse.\|
|00001030| 20 20 68 61 73 20 6a 75 | 73 74 20 6d 6f 76 65 64 |  has ju|st moved|
|00001040| 20 69 6e 74 6f 20 6f 72 | 20 6f 75 74 20 6f 66 20 | into or| out of |
|00001050| 6f 75 72 20 61 72 65 61 | 2e 20 20 4f 74 68 65 72 |our area|.  Other|
|00001060| 77 69 73 65 20 77 65 20 | 64 6f 20 6e 6f 74 68 69 |wise we |do nothi|
|00001070| 6e 67 2e 0d 5c 20 20 54 | 68 69 73 20 61 76 6f 69 |ng..\  T|his avoi|
|00001080| 64 73 20 70 6f 69 6e 74 | 65 72 20 66 6c 69 63 6b |ds point|er flick|
|00001090| 65 72 69 6e 67 20 70 72 | 6f 62 6c 65 6d 73 2e 0d |ering pr|oblems..|
|000010a0| 0d 09 63 68 65 63 6b 5f | 6d 6f 75 73 65 3f 3a 20 |..check_|mouse?: |
|000010b0| 73 65 6c 66 0d 09 49 46 | 09 09 5c 20 63 68 61 6e |self..IF|..\ chan|
|000010c0| 67 65 64 0d 09 09 28 20 | 69 6e 20 6f 75 72 20 61 |ged...( |in our a|
|000010d0| 72 65 61 3f 20 29 20 20 | 49 46 20 69 62 65 61 6d |rea? )  |IF ibeam|
|000010e0| 63 75 72 73 20 20 45 4c | 53 45 20 20 61 72 72 6f |curs  EL|SE  arro|
|000010f0| 77 43 75 72 73 20 20 54 | 48 45 4e 0d 09 45 4c 53 |wCurs  T|HEN..ELS|
|00001100| 45 09 64 72 6f 70 0d 09 | 54 48 45 4e 0d 0d 09 69 |E.drop..|THEN...i|
|00001110| 64 6c 65 3a 20 74 68 65 | 54 45 20 20 3b 6d 0d 0d |dle: the|TE  ;m..|
|00001120| 0d 3a 6d 20 43 4c 41 53 | 53 49 4e 49 54 3a 0d 09 |.:m CLAS|SINIT:..|
|00001130| 63 6c 61 73 73 69 6e 69 | 74 3a 20 73 75 70 65 72 |classini|t: super|
|00001140| 0d 09 73 65 74 3a 20 63 | 61 6e 48 61 76 65 46 6f |..set: c|anHaveFo|
|00001150| 63 75 73 3f 0d 09 31 20 | 70 75 74 3a 20 6d 6f 75 |cus?..1 |put: mou|
|00001160| 73 65 5f 77 61 73 5f 68 | 65 72 65 3f 20 20 3b 6d |se_was_h|ere?  ;m|
|00001170| 0d 0d 3a 6d 20 64 75 6d | 70 3a 09 64 75 6d 70 3a |..:m dum|p:.dump:|
|00001180| 20 73 75 70 65 72 20 20 | 64 75 6d 70 3a 20 74 68 | super  |dump: th|
|00001190| 65 54 45 20 3b 6d 0d 0d | 3b 63 6c 61 73 73 0d 00 |eTE ;m..|;class..|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00001210| 00 00 71 cd 00 00 00 01 | 84 19 00 00 00 00 00 00 |..q.....|........|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 06 54 45 76 69 65 77 54 | 02 00 00 00 50 61 72 74 |.TEviewT|....Part|
|00001240| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 01 82 5d |SIT!....|.......]|
|00001250| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 b3 66 c2 7a 00 00 | 00 00 00 00 01 7d 00 00 |...f.z..|.....}..|
|00001280| 71 ce 00 00 00 01 84 19 | 00 00 00 00 00 00 00 00 |q.......|........|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0b 00 00 |........|........|
|000012c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012e0| 00 00 ae 27 8e 13 00 00 | 02 32 05 00 00 00 71 cf |...'....|.2....q.|
|000012f0| 00 00 00 01 84 19 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 e0 |........|........|
|00001330| 00 00 01 e0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00001350| 00 3b 02 9a 56 68 24 5c | 00 00 00 1c 00 32 00 00 |.;..Vh$\|.....2..|
|00001360| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00001370| 02 9a 5e 34 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |..^4.Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+